Testing various plot functions

source("global.R")

display_x  <- panimmune_data$sample_selection_choices[1]
display_y  <- panimmune_data$cell_content_choices[1]
internal_x <- get_variable_internal_name(display_x)
internal_y <- get_variable_internal_name(display_y)
plot_df <- panimmune_data$df %>% 
    select_(.dots = c(internal_x, internal_y)) %>% 
    .[complete.cases(.),]
plot <- create_violinplot(
    plot_df,
    internal_x,
    internal_y,
    internal_x,
    xlab = display_x,
    ylab = display_y,
    fill_colors = decide_plot_colors(panimmune_data, internal_x)
)

the condition has length > 1 and only the first element will be used

plot

ggplotly(plot) %>% 
    layout(hovermode = "closest")

plot_df %>% 
    plot_ly(
        x = ~Subtype_Immune_Model_Based,
        y = ~leukocyte_fraction,
        split = ~Subtype_Immune_Model_Based,
        type = 'violin',
        box = list(
            visible = T
        ),
        meanline = list(
            visible = T
        )
    )

let(
   alias = c(
       xvar = "leukocyte_fraction",
       yvar = "Dendritic_cells.Aggregate2"
   ),
    plot_df %>% 
        plot_ly(
            x = ~xvar,
            y = ~yvar
    ) %>% 
       layout(
           title = "C6",
           xaxis = "Leukocyte Fraction",
           yaxis = "Macrophages"
       )
)

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
Error: $ operator is invalid for atomic vectors